#include "bsp_rtc.h"
#include "debug.h"


calendar_obj calendar;
u8 const table_week[12]={0,3,3,6,1,4,6,2,5,0,3,5}; 	 
const u8 mon_table[12]={31,28,31,30,31,30,31,31,30,31,30,31};

static void RTC_NVIC_Config(void)
{	
  NVIC_InitTypeDef NVIC_InitStructure;
	NVIC_InitStructure.NVIC_IRQChannel = RTC_IRQn;		
	NVIC_InitStructure.NVIC_IRQChannelPreemptionPriority = 0;	
	NVIC_InitStructure.NVIC_IRQChannelSubPriority = 0;	
	NVIC_InitStructure.NVIC_IRQChannelCmd = ENABLE;		
	NVIC_Init(&NVIC_InitStructure);		
}



/****************************
系统RCT时间
****************************/
void RTC_Init(void)
{
	u8 temp=0;
	RCC_APB1PeriphClockCmd(RCC_APB1Periph_PWR | RCC_APB1Periph_BKP, ENABLE);	 
	RTC_NVIC_Config();    				     
}


/****************************
配置是否开启闹钟
****************************/
void RTC_ConfigALR(FunctionalState NewState)
{
	RTC_ITConfig(RTC_IT_ALR, NewState);  // 使能闹钟中断	 				     
}


/****************************
系统RCT时间
****************************/
u8 RTC_SetTime(u16 syear,u8 smon,u8 sday,u8 hour,u8 min,u8 sec)
{
	u8 temp=0;
	PWR_BackupAccessCmd(ENABLE);

	BKP_DeInit();	
	RCC_LSEConfig(RCC_LSE_ON);	
	while (RCC_GetFlagStatus(RCC_FLAG_LSERDY) == RESET&&temp<250)	
	{
		temp++;
		Delay_Ms(20);
	}
	if(temp>=255)	return 1;
	RCC_RTCCLKConfig(RCC_RTCCLKSource_LSE);		
	RCC_RTCCLKCmd(ENABLE);	 
	RTC_WaitForLastTask();	
	RTC_WaitForSynchro();		 
	RTC_ConfigALR(ENABLE);	// 使能闹钟中断	
	RTC_ITConfig(RTC_IT_SEC, ENABLE);				// 秒钟中断
	RTC_WaitForLastTask();	
	RTC_EnterConfigMode();
	RTC_SetPrescaler(32767); 
	RTC_WaitForLastTask();	
	RTC_Set(syear,smon,sday,hour,min,sec);              /* Setup Time */	     
	RTC_Update();
}

/*******************************************************************************
* Function Name  : Is_Leap_Year
* Description    : Judging whether it is a leap year.
* Input          : year
* Return         : 1:Yes
*                  0:No
*******************************************************************************/
u8 Is_Leap_Year(u16 year)
{			  
	if(year%4==0) 
	{ 
		if(year%100==0) 
		{ 
			if(year%400==0)return 1;
			else return 0;   
		}else return 1;   
	}else return 0;	
}	 	


/*******************************************************************************
* Function Name  : RTC_Set
* Description    : Set Time.
* Input          : Struct of _calendar_obj
* Return         : 1:error
*                  0:success
*******************************************************************************/
u8 RTC_Set(u16 syear,u8 smon,u8 sday,u8 hour,u8 min,u8 sec)
{
	u16 t;
	u32 seccount=0;
	if(syear<1970||syear>2099)return 1;	   
	for(t=1970;t<syear;t++)	
	{
		if(Is_Leap_Year(t))seccount+=31622400;
		else seccount+=31536000;			  
	}
	smon-=1;
	for(t=0;t<smon;t++)	   
	{
		seccount+=(u32)mon_table[t]*86400;
		if(Is_Leap_Year(syear)&&t==1)seccount+=86400; 
	}
	seccount+=(u32)(sday-1)*86400;
	seccount+=(u32)hour*3600;
  seccount+=(u32)min*60;	 
	seccount+=sec;

	RCC_APB1PeriphClockCmd(RCC_APB1Periph_PWR | RCC_APB1Periph_BKP, ENABLE);	
	PWR_BackupAccessCmd(ENABLE);	
	RTC_SetCounter(seccount);	
	RTC_WaitForLastTask();	
	return 0;
}

/*******************************************************************************
* Function Name  : RTC_Alarm_Set
* Description    : Set Alarm Time.
* Input          : Struct of _calendar_obj
* Return         : 1:error
*                  0:success
*******************************************************************************/
u8 RTC_Alarm_Set(u16 syear,u8 smon,u8 sday,u8 hour,u8 min,u8 sec)
{
	u16 t;
	u32 seccount=0;
	if(syear<1970||syear>2099)return 1;	   
	for(t=1970;t<syear;t++)	
	{
		if(Is_Leap_Year(t))seccount+=31622400;
		else seccount+=31536000;		
	}
	smon-=1;
	for(t=0;t<smon;t++)	   
	{
		seccount+=(u32)mon_table[t]*86400;
		if(Is_Leap_Year(syear)&&t==1)seccount+=86400;
	}
	seccount+=(u32)(sday-1)*86400;
	seccount+=(u32)hour*3600;
  seccount+=(u32)min*60;	 
	seccount+=sec;			    

	RCC_APB1PeriphClockCmd(RCC_APB1Periph_PWR | RCC_APB1Periph_BKP, ENABLE);	 
	PWR_BackupAccessCmd(ENABLE);	
	RTC_SetAlarm(seccount);
	RTC_WaitForLastTask();	
	
	return 0;	    
}

/*******************************************************************************
* Function Name  : RTC_Get
* Description    : Get current time.
* Input          : None
* Return         : 1:error
*                  0:success
*******************************************************************************/
u8 RTC_Update(void)
{
	static u16 daycnt=0;
	u32 timecount=0; 
	u32 temp=0;
	u16 temp1=0;	  
  timecount=RTC_GetCounter();	 
 	temp=timecount/86400;  
	if(daycnt!=temp)
	{	  
		daycnt=temp;
		temp1=1970;	
		while(temp>=365)
		{				 
			if(Is_Leap_Year(temp1))
			{
				if(temp>=366)temp-=366;
				else {temp1++;break;}  
			}
			else temp-=365;	 
			temp1++;  
		}   
		calendar.w_year=temp1;
		temp1=0;
		while(temp>=28)
		{
			if(Is_Leap_Year(calendar.w_year)&&temp1==1)
			{
				if(temp>=29)temp-=29;
				else break; 
			}
			else 
			{
				if(temp>=mon_table[temp1])temp-=mon_table[temp1];
				else break;
			}
			temp1++;  
		}
		calendar.w_month=temp1+1;	
		calendar.w_date=temp+1;  	
	}
	temp=timecount%86400;     		 
	calendar.hour=temp/3600;     	
	calendar.min=(temp%3600)/60; 	
	calendar.sec=(temp%3600)%60; 
	calendar.week=RTC_Get_Week(calendar.w_year,calendar.w_month,calendar.w_date);
	return 0;
}	


/*******************************************************************************
* Function Name  : RTC_Get_Week
* Description    : Get the current day of the week.
* Input          : year/month/day
* Return         : week
*******************************************************************************/
u8 RTC_Get_Week(u16 year,u8 month,u8 day)
{	
	u16 temp2;
	u8 yearH,yearL;
	
	yearH=year/100;	yearL=year%100; 
	if (yearH>19)yearL+=100; 
	temp2=yearL+yearL/4;
	temp2=temp2%7; 
	temp2=temp2+day+table_week[month-1];
	if (yearL%4==0&&month<3)temp2--;
	return(temp2%7);
}

/*******************************************************************************
* Function Name  : RTC_IRQHandler
* Description    : This function handles RTC Handler.
* Input          : None
* Return         : None
*******************************************************************************/
void RTC_IRQHandler(void)
{		 
	if (RTC_GetITStatus(RTC_IT_SEC) != RESET)   /* Seconds interrupt */
	{
    RTC_Update();	
		
 	}
	if(RTC_GetITStatus(RTC_IT_ALR)!= RESET)     /* Alarm clock interrupt */
	{
		RTC_ClearITPendingBit(RTC_IT_ALR);
		

		// 如果闹钟列表还有需要提醒的，就设置下一个时间点到闹钟，如果超出设定时间，不再继续设置，也就不会进入闹钟
//		remindToMeter.remindIndex++;
//		if(remindToMeter.remindIndex<remindToMeter.remindSize)		
//			RTC_Alarm_Set(calendar.w_year, calendar.w_month, calendar.w_date, remindToMeter.timeList[remindToMeter.remindIndex].hh, remindToMeter.timeList[remindToMeter.remindIndex].mm, 0);
  } 			

	RTC_ClearITPendingBit(RTC_IT_SEC|RTC_IT_OW); 
	RTC_WaitForLastTask();	  	    						 	   	 
}



